package SecurityCenter;
use strict;
use Data::Dumper;

sub new{
	my $self = {};
	bless($self);
	return $self;
}

sub copy{
	my $self = shift;
	my $hashref = shift;
	my @self_keys = keys %{$hashref};
	foreach my $self_key (@self_keys){
		if(ref($hashref->{lc($self_key)})){
			foreach my $tmp_key (keys %{$hashref->{lc($self_key)}}){
				$self->{uc($self_key)}->{uc($tmp_key)} = $hashref->{lc($self_key)}->{$tmp_key};
				
			}
		}else{
			$self->{uc($self_key)} = $hashref->{lc($self_key)};
		}	
	}
}

sub start_time{
	my $self = shift;
	if (@_) {$self->{START_TIME} = $_};
	return $self->{START_TIME};
}

sub code{
	my $self = shift;
	if (@_) {$self->{CODE} = $_};
	return $self->{CODE};
}

sub start_hour{
	my $self = shift;
	if (@_) {$self->{START_TIME}->{HOUR} = $_};
	return $self->{START_TIME}->{HOUR};
}

sub start_minute{
	my $self = shift;
	if (@_) {$self->{START_TIME}->{MINUTE} = $_};
	return $self->{START_TIME}->{MINUTE};
}

sub phase{
	my $self = shift;
	if (@_< 2) {return $self->{PHASES}->{$_}}
	my $phase_number = shift;
	my $phase_length = shift;
	my $phase_mode	 = shift;
	$self->{PHASES}->{$phase_number}->{LENGTH} = $phase_length;
	$self->{PHASES}->{$phase_number} ->{MODE} = $phase_mode;		
}

sub DESTROY{
	
}

1;